home *** CD-ROM | disk | FTP | other *** search
- ; NewIcons Installer Script
- ; $Ver: 38.3 (8-Jan-95)
- ; Written by Philip A. Vedovatti
- ; for Program Author Nicola Salmoria,
- ; with many thanks for his fine programming work.
- ; Traduction française par Eric Sauvageau.
-
- (set @default-dest "SYS:C")
-
- (set #bad-kick
- (cat "\n\nDésolé! Vous devez utiliser le Workbench 2.0"
- "ou mieux pour utiliser ce logiciel."))
-
-
- (set #hello-message
- (cat "\n\nBIENVENUE UTILISATEUR DE NEWICONS!"
- "\n\n Si vous n'avez pas une version précédante de"
- "\nNewIcons ET Deficons d'installée, avortez ce script"
- "\net exécutez plutôt le script Install_NewIcons."
- "\n\nCette installation sert à mettre à jour les "
- "\nlogiciels associés à NewIcons/Deficons."
- "\n\nSI VOUS AVEZ ACTUELLEMENT NEWICONS ET DEFICONS"
- "\nD'INSTALLE SUR VOTRE SYSTEME, VOUS POUVEZ PROCEDER."))
-
- (set #install-which
- (cat "\nQuelle(s) partie(s) du système NewIcons"
- "\ndésirez-vous mettre à jour?\n"))
-
- (set #install-library
- (cat "\n\nCopie de la newicon.library dans LIBS:."))
-
- (set #install-library-help
- (cat "\n\n Cette librairie est nécessaire à la fois pour"
- "\nutiliser NewIcons."))
-
- (set #install-newicons
- (cat "\n\nCopie des exécutables dans le répertoire C:"))
-
- (set #install-newicons-help
- (cat "\n\nCette étape installe NewIcons, Injectbrush"
- "\net PatchOpenWB dans le répertoire C:."))
-
- (set #tools-dest
- (cat "\nDans quel répertoire désirez-vous installer les"
- "\noutils servant à manipuler les NewIcons?\n"))
-
- (set #install-deficons
- (cat "\n\nInstallation du serveur DefIcons dans le"
- "\nrépertoire C:, et copie des icônes génériques"
- "\ndans le répertoire Envarc:sys/."))
-
- (set #install-deficons-help
- (cat "\nCette étape installe le logiciel Deficons"
- "\net copie les fichiers 'def_icons' dans le"
- "\nrépertoire ENVARC:sys/."))
-
- (set #exit-message
- (cat "Veuillez redémarrez votre système afin d'activier"
- "\nles nouvelles versions des systèmes NewIcons/Deficons."
- "\n\n\nEn espérant que vous appréciez cette mise à jour!"))
-
- (set #docs-dest
- (cat "Où désirez-vous installer la documentation"
- "\nAmigaGuide de NewIcons?"))
-
- ; ------------------------------
- ; Check Kickstart Version
- ; ------------------------------
-
- (if (< (getversion "LIBS:version.library") (* 37 65536))
- (abort #bad-kick)
- )
-
- (message #hello-message)
-
- ; ------------------------------
- ; Install NewIcon.library
- ; ------------------------------
-
- (copylib
- (source "/libs/newicon.library")
- (dest "libs:")
- (prompt #install-library)
- (help #install-library-help)
- (confirm)
- )
-
- ;-------------------------------------------------------
- ;Install icon images, NewIcons, and icon support files
- ;-------------------------------------------------------
-
-
-
- (copylib
- (prompt #install-newicons)
- (source "/C/NewIcons")
- (dest "c:")
- (help #install-newicons-help)
- )
-
- (copylib
- (source "/C/InjectBrush")
- (dest "c:")
- )
-
- (copylib
- (source "/C/PatchOpenWB")
- (dest "c:")
- )
-
-
- (set destdir
- (askdir
- (prompt #tools-dest)
- (help @askdir-help)
- (default "Sys:Utilities")
- )
- )
-
- (copyfiles
- (source "/Utilities/CopyNewIcon")
- (dest destdir)
- (infos)
- )
-
- (copyfiles
- (source "/Utilities/CreateDefaultIcon")
- (dest destdir)
- (infos)
- )
-
- (copyfiles
- (source "/Utilities/KillNewIcon")
- (dest destdir)
- (infos)
- )
-
-
-
-
-
- ;------------------------------
- ;Install Deficons
- ;------------------------------
-
-
- (copylib
- (prompt #install-deficons)
- (source "/C/DefIcons")
- (dest "C:")
- (help #install-deficons-help)
- (confirm)
- )
-
- (copyfiles
- (source "/envarc/deficons.prefs")
- (dest "ENVARC:")
- )
-
-
- ;------------------------------
- ;Install Documentation
- ;------------------------------
-
-
- ((set destdir
- (askdir
- (prompt #docs-dest)
- (help @askdir-help)
- (default "Help:")
- )
- )
- (copyfiles
- (source "/NewIcons.guide")
- (dest destdir)
- (infos)
- )
- )
-
-
- (exit #exit-message)
-